/* Zatok - язык программирования текстовых игр
 * (С) 2010 - 2012 Меркулов Матвей Юрьевич
 * Код лицензирован под лицензией GNU LGPL
 * Вы можете прочитать текст лицензии по адресу:
 * http://www.gnu.org/copyleft/lesser.html
 * или прочитать русский перевод по адресу:
 * http://ru.wikisource.org/wiki/GNU_Lesser_General_Public_License
 */

package base.list;

import base.function.CIntFunction;
import base.value.CValue;
import base.value.CValue.CType;

public class CObjectsQuantity extends CIntFunction{
	@Override
	public void Init() {
		AssertParam( 1 );
	}
	
	
	
	@Override
	public int ToInt() {
		CValue Value = Param[ 0 ].GetValue();
		CType Type  = Value.GetType();
		switch( Type ) {
			case UserObject:
				return Value.ToObject().Children.size();
			case Array:
				return Value.ToArray().length;
			case List:
				return Value.ToList().size();
			default:
				Error( "Количество объектов можно определить только у объекта, массива или списка" );
				return 0;
		}
	}
}
